home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / printing / iprint / msgform.fr_ / msgform.fr
Text File  |  1994-08-03  |  1KB  |  51 lines
  1. VERSION 2.00
  2. Begin Form MsgForm 
  3.    BorderStyle     =   3  'Fixed Double
  4.    ClientHeight    =   765
  5.    ClientLeft      =   2505
  6.    ClientTop       =   2655
  7.    ClientWidth     =   4185
  8.    ClipControls    =   0   'False
  9.    ControlBox      =   0   'False
  10.    Height          =   1170
  11.    Left            =   2445
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   765
  16.    ScaleWidth      =   4185
  17.    Top             =   2310
  18.    Width           =   4305
  19.    Begin Timer BorderTimer 
  20.       Interval        =   300
  21.       Left            =   180
  22.       Top             =   120
  23.    End
  24.    Begin Shape LabelBorder 
  25.       Height          =   315
  26.       Left            =   720
  27.       Top             =   180
  28.       Width           =   2715
  29.    End
  30.    Begin Label MessageLabel 
  31.       AutoSize        =   -1  'True
  32.       Caption         =   "Loading Fonts.  Please Wait..."
  33.       Height          =   195
  34.       Left            =   780
  35.       TabIndex        =   0
  36.       Top             =   240
  37.       Width           =   2595
  38.    End
  39. End
  40. Option Explicit
  41.  
  42. Sub BorderTimer_Timer ()
  43.    'Flash a box around the label while waiting for fonts to load.
  44.    If LabelBorder.Visible = True Then
  45.       LabelBorder.Visible = False
  46.    Else
  47.       LabelBorder.Visible = True
  48.    End If
  49. End Sub
  50.  
  51.